home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / amigalib / setsuperattrs.s < prev    next >
Text File  |  1999-01-01  |  417b  |  27 lines

  1.     section "CODE",code
  2.     cnop    0,4
  3.     xdef    _SetSuperAttrs
  4.  
  5. _SetSuperAttrs
  6.     move.l  a2,-(a7)
  7.     movem.l 8(a7),a0/a2
  8.     move.l  a2,d0
  9.     beq     L_Null
  10.     move.l  a0,d0
  11.     beq     L_Null
  12.     clr.l   -(a7)
  13.     pea     20(a7)
  14.     pea     259
  15.     move.l  sp,a1
  16.     move.l  24(a7),a0
  17.     bsr     L_Invoke
  18.     lea     12(a7),a7
  19. L_Null
  20.     move.l  (a7)+,a2
  21.     rts
  22.  
  23. L_Invoke
  24.     move.l  8(a0),-(a7)
  25.     rts
  26.  
  27.